home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / e / speedtests / alloc128.e < prev    next >
Text File  |  1999-06-14  |  628b  |  34 lines
  1. MODULE '*testspeed'
  2. MODULE 'exec/memory'
  3.  
  4. CONST LOTS_OF_TIMES=100000
  5.  
  6. DEF x,pool
  7.  
  8. PROC main()
  9.   DEF mem
  10.   pool:=CreatePool(MEMF_PUBLIC OR MEMF_CLEAR,4096,2048)
  11.   mem:=AllocPooled(pool,100)
  12.   test({allocmem},     'AllocMem()',     LOTS_OF_TIMES)
  13.   test({allocpooled},  'AllocPooled()',  LOTS_OF_TIMES)
  14.   test({fastnew},      'FastNew()',      LOTS_OF_TIMES)
  15.   FreePooled(pool,mem,100)
  16.   DeletePool(pool)
  17. ENDPROC
  18.  
  19. PROC fastnew()
  20.   x:=FastNew(128)
  21.   FastDispose(x,128)
  22. ENDPROC
  23.  
  24. PROC allocmem()
  25.   x:=AllocMem(128,MEMF_PUBLIC)
  26.   FreeMem(x,128)
  27. ENDPROC
  28.  
  29. PROC allocpooled()
  30.   x:=AllocPooled(pool,128)
  31.   FreePooled(pool,x,128)
  32. ENDPROC
  33.  
  34.